home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / util / arc / ArcExtract1_0.lha / ArcExtract / Install < prev    next >
Text File  |  1997-04-17  |  2KB  |  76 lines
  1. ; ##########################################################################
  2. ; #                                                                        #
  3. ; #               ****  ArcExtract v1.0 Installer Script ****              #
  4. ; #                                                                        #
  5. ; #                                                                        #
  6. ; #                       Written by Alvaro Thompson                       #
  7. ; #                                                                        #
  8. ; ##########################################################################
  9. ;
  10. ; $VER: Install 1.0 (17.04.97)
  11.  
  12. (set #info
  13. (cat "\n\n- ArcExtract v1.0 -"
  14.      "\n\nThis program is EMailWare, although"
  15.      "\nthe program is still fully Copyrighted"
  16.      "\n\nWritten by Alvaro Thompson ©1997"
  17. ))
  18.  
  19.  
  20. (set #where
  21. (cat "Where should I copy the files?"
  22.      "\n(A drawer will be created)"
  23. ))     
  24.  
  25. (set #lib1
  26. (cat "I am now going to install the Reqtools.library"
  27. ))
  28.  
  29. (set #lib2
  30. (cat "I am now going to install the powerpacker.library"
  31. ))
  32.  
  33. (message #info)
  34.               
  35. (set destination
  36.  (askdir
  37.   (prompt #where)
  38.   (help @askdir-help)
  39.   (default "SYS:")
  40.  )
  41. ) 
  42.  
  43. (makedir (tackon destination "ArcExtract" (infos)))
  44.  
  45. (set trgt (tackon destination "ArcExtract"))
  46.  
  47. (copyfiles
  48.   (source "")
  49.   (dest trgt)
  50.   (help @copyfiles-help)
  51.   (all)
  52. )
  53.  
  54. (copylib
  55.   (prompt #lib1)
  56.   (source (tackon trgt "libs/Reqtools.library"))
  57.   (dest "LIBS:")
  58.   (help @copylibs-help)
  59. )    
  60.  
  61. (copylib
  62.   (prompt #lib2)
  63.   (source (tackon trgt "libs/powerpacker.library"))
  64.   (dest "LIBS:")
  65.   (help @copylibs-help)
  66. )
  67.  
  68. (delete (tackon trgt "LIBS") (all))
  69. (delete (tackon trgt "Libs.info"))
  70. (delete (tackon trgt "Install"))
  71. (delete (tackon trgt "Install.info"))
  72.  
  73. (set @default-dest trgt)
  74.  
  75. (exit)
  76.